<!--------' A SCRIPT LANGUAGE tag should be the first item on this page ------->
</SCRIPT>
<!-- Assorted variables are declared -->
<SCRIPT LANGUAGE="VBScript">
<!--
dim q
dim cofidx
dim num(4)
dim bean(4)
dim line(4)
dim globean
-->
</SCRIPT>
<!-- Assorted user defined subprocedures -->
<SCRIPT LANGUAGE="VBScript">
<!--
'Show components of the first popup
Sub Procedure1()
popbanner.Visible = True
popoff.Visible = True
poporder.Visible = True
popprice.Visible = True
poptext.Visible = True
vershad1.Visible = True
horshad1.Visible = True
clikon.Visible = False
popup1.Visible = True
popart.Visible = True
end sub
Sub Procedure2()
'hides the first popup
popup1.Visible = False
popart.Visible = False
popbanner.Visible =False
popoff.Visible = False
poporder.Visible = False
popprice.Visible = False
poptext.Visible = False
vershad1.Visible = False
horshad1.Visible = False
end sub
'hides prompting text on main screen
Sub Procedure3()
clikon.Visible = False
hotext.Caption = " "
end sub
Sub Procedure4()
'works the order form
If not line(globean)="" then cofidx=line(globean) else Call Procedure5()
If globean=1 then bean(cofidx)="lbs. Vesuvius Blend"
If globean=2 then bean(cofidx)="lbs. Cafe' Kilauea"
If globean=3 then bean(cofidx)="lbs. Mt. Kilimanjaro"
If globean=4 then bean(cofidx)="lbs. Sundoro Roast"
line(globean)=cofidx
'set quantity to scrollbar output
num(cofidx)=q
if cofidx=1 and q>0 then amt1.Caption =q
If cofidx=2 and q>0 then amt2.caption =q
If cofidx=3 and q>0 then amt3.caption =q
If cofidx=4 and q>0 then amt4.caption =q
'show order form items
if not bean(2)="" then cof2.Visible = True:amt2.Visible = True
if not bean(3)="" then cof3.Visible = True:amt3.Visible = True
if not bean(4)="" then cof4.Visible = True:amt4.Visible = True
'load a coffee variety into order form label
if cofidx=1 and q>0 then cof1.caption = bean(1)
If cofidx=2 and q>0 then cof2.caption = bean(2)
If cofidx=3 and q>0 then cof3.caption = bean(3)
If cofidx=4 and q>0 then cof4.caption = bean(4)
'total the price
total.caption=(num(1)+num(2)+num(3)+num(4))*6.99
ordresult.Visible = True
cof1.Visible = True
amt1.Visible = True
total.Visible = True
totlbl.Visible = True
redobutt.Visible=True
youhave.Visible = True
end sub
Sub cup5go_MouseDown(Button, Shift, X, Y)
fulcup5.Visible = False
empcup5.Visible = True
end sub
Sub Procedure5()
'finds an empty line on the order form
cofidx=1
If not bean(1)="" then cofidx=2
If not bean(2)="" then cofidx=3
If not bean(3)="" then cofidx=4
end sub
Sub Procedure6()
'hides the order form
ordplease.Visible = False
ordquan.Visible = False
ordshop.Visible = False
ordpro.Visible = False
ordread.Visible = False
ordcancel.Visible = False
orderfm.Visible = False
ordhead.Visible = False
vershad2.Visible = False
vershad3.Visible = False
vershad4.Visible = False
horshad2.Visible = False
ordnum.Visible = False
ordnumbk.Visible = False
ordess.Visible = False
popoff.Enabled = True
ordresult.Visible = False
cof1.Visible = False
cof2.Visible = False
cof3.Visible = False
cof4.Visible = False
amt1.Visible = False
amt2.Visible = False
Amt3.Visible = False
amt4.Visible = False
total.Visible = False
totlbl.Visible = False
redobutt.visible=false
youhave.Visible = False
clikon.Caption = "Click on one of our fine coffees"
clikon.Visible = True
end sub
-->
</SCRIPT>
<!-- Xspot labels set changing coffee text with MouseMoves and clicks. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub vesuspot_MouseDown(Button, Shift, X, Y)
poptext.caption=" In Italy, the spiritual homeland of all coffee lovers, our master blenders have perfected their art for 300 years. Today, these centuries of tradition have produced our Vesuvius blend: a balanced selection of medium-roasted beans with a darker Italian roast, a hearty yet light brew swirling with fruit and chocolate notes. With the first sip of Vesuvius, you'll find yourself at the peak of the coffee blender's art."
Popbanner.caption=" Warm, complex, a perfectly realized blend"
ordread.Caption = "of Vesuvius Blend"
sideshow.PicturePath = "art/vesfood.gif"
popart.PicturePath = "art/vesuv.gif"
call Procedure1()
globean=1
end sub
Sub vesuspot_MouseMove(Button, Shift, X, Y)
hotext.Caption = "Only the handful of coffee beans that pass our tasters' 'cup test' go into Volcano Coffee's blends, where bold East African, aromatic Indonesian, and lively South American coffees merge into a perfectly realized unity of flavors."
clikon.Visible = True
end sub
Sub vesuspot_MouseExit()
call Procedure3()
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub kilaeuspot_Click()
poptext.caption= "What is it that sets this Kona apart from all other coffees? Why does world demand perennially outstrip the supply of beans? What does the fertile ash of Kilauea, coming from the center of the earth, infuse in the beans? Is it the aroma, redolent of tropical woods, or the complex of spices that wash over your palate? All we know is that each sip is a taste of a soul as big as Kilauea."
Popbanner.caption=" The royalty of coffee beans, with gloriously balanced flavors"
ordread.Caption = "of Cafe Kilauea"
sideshow.PicturePath = "art/orchids.gif"
popart.PicturePath = "art/kueabutt.gif"
call Procedure1()
globean=2
end sub
Sub kilaeuspot_MouseMove(Button, Shift, X, Y)
hotext.Caption = "'Kona' is the secret password to coffee-lover's paradise. We hand-pick the beans at their peak of flavor high on Kilauea's fertile slopes. At every step of drying and roasting, we nurture the Kona beans' fresh, fruity aroma and smooth flavor."
clikon.Visible = True
end sub
Sub kilaeuspot_MouseExit()
call Procedure3()
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub kilspot_Click()
poptext.caption= "In your coffee travels, you'll find no richer reward than our Mount Kilimanjaro. Beneath the three merged cones of Kibo, Mawensi, and Shira, our plantations' ideal coffee-growing environment, organic farming methods, and East Africa's longer growing cycle produce this Arabica's rich aroma, hearty palate, and caramel body. Take time out from the mechanized helter-skelter to bask in the gifts of Kilimanjaro!"
popbanner.caption=" From traditional farming methods, the richest of Arabicas"
ordread.Caption = "of Mt. Kilimanjaro"
sideshow.PicturePath = "art/macaw1.gif"
popart.PicturePath = "art/kilimanj.gif"
call Procedure1()
Globean=3
end sub
Sub kilspot_MouseMove(Button, Shift, X, Y)
hotext.Caption = " This intensely rich, nutty Mt. Kilimanjaro is what coffee traders drink when they break for joe. As inspiring as Kilimanjaro itself!"
clikon.Visible = True
end sub
Sub kilspot_MouseExit()
call Procedure3()
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub sunspot_Click()
poptext.caption="'Java' means coffee the world over, but only Arabica beans grown here are the real Java. 'Sundoro' means 'the heart of the island'; our Sundoro, the heartiest of the Indonesian coffees, is a symphony of flavors from top to bottom, with a finish that leaves you reaching for more. For early risers, Sundoro is a perfect companion to the day's first light."
Popbanner.caption=" The darkest roast of the season! Spicy and smooth"
ordread.Caption = " of Sundoro Roast"
sideshow.PicturePath = "art/birdflwr.gif"
popart.PicturePath = "art/sundoro.gif"
call Procedure1()
globean=4
end sub
Sub sunspot_MouseMove(Button, Shift, X, Y)
hotext.Caption = "Our Mt. Sundoro is one of the highest expressions of the Indonesian Arabica coffees. Mt. Sundoro's hot springs, rich volcanic soil, and vaulting altitudes bring out this Arabica coffee's full-bottomed flavor and satiny finish."
clikon.Visible = True
end sub
Sub sunspot_MouseExit()
call Procedure3()
end sub
-->
</SCRIPT>
<!-- MouseMove event displays prompting text -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub ordcancel_MouseMove(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
ordhead.ForeColor = &H00404080
ordhead.Caption = "Click on 'Cancel' to erase entire order and begin again."
end sub
Sub ordcancel_Click()
num(1)=0
num(2)=0
num(3)=0
num(4)=0
amt1.caption=""
amt2.caption=""
amt3.caption=""
amt4.caption=""
cof1.caption=""
cof2.caption=""
cof3.caption=""
cof4.caption=""
bean(1)=""
bean(2)=""
bean(3)=""
bean(4)=""
line(1)=""
line(2)=""
line(3)=""
line(4)=""
Call Procedure2()
Call Procedure6()
end sub
-->
</SCRIPT>
<!-- Button to close coffee popup. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub popoff_MouseDown(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
call Procedure2()
end sub
-->
</SCRIPT>
<!-- This procedure shows the components of the ordering popup. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub poporder_Click()
ordplease.Visible = True
ordquan.Visible = True
ordshop.Visible = True
ordpro.Visible = True
ordread.Visible = True
ordcancel.Visible = True
orderfm.Visible = True
ordhead.Visible = True
vershad2.Visible = True
vershad4.Visible = True
vershad3.Visible = True
horshad2.Visible = True
ordnum.Visible = True
ordess.Visible = True
ordnumbk.visible = True
popoff.Enabled = False
ordess.left=ordplease.left+ordplease.width-1
ordquan.value=0
end sub
-->
</SCRIPT>
<!-- This shows the 'pretend processing' message and changes text color. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub ordpro_MouseMove(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
ordhead.ForeColor = &H00404080
if ordresult.visible= 0 then ordhead.Caption = "Click on this button to add this item to your shopping list." else ordhead.caption="In a real shopping app this button would interact with a server."
end sub
Sub ordpro_MouseDown(Button, Shift, X, Y)
if ordresult.visible= 0 then ordhead.Caption ="Use the up and down arrows to select a quantity." else ordhead.Caption ="This data would be sent with credit card info to a database."
call Procedure4()
end sub
-->
</SCRIPT>
<!-- Output of the ordering scrollbar is loaded into variable q. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub ordquan_Change()
q=ordquan.value
ordnum.caption=q
if q=1 then ordess.visible=False else ordess.visible=True
end sub
-->
</SCRIPT>
<!-- Putting this message in 'on load' (as opposed to directly into the controls parameters) prevented an odd situation where two messages came up at once. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub canvas_OnLoad()
hotext.Caption = "Every variety of Volcano Coffee is grown at high altitude in fast-draining volcanic soils. These perfect growing conditions consistently produce robust coffee flavor. Whether you choose our delicate Vesuvius Blend or hearty Sundoro Roast, your complete satisfaction is assured."
end sub
-->
</SCRIPT>
<!-- Cup-N-go controls are transparent labels which retain their state as the image beneath them changes. These controls choose other pages. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub cup1go_MouseDown(Button, Shift, X, Y)
empcup1.Visible = True
fulcup1.Visible = False
end sub
Sub cup1go_MouseUp(Button, Shift, X, Y)
Window.location.href = "Volcano.htm"
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub cup3go_MouseDown(Button, Shift, X, Y)
fulcup3.Visible = False
empcup3.Visible = True
end sub
Sub cup3go_MouseUp(Button, Shift, X, Y)
Window.location.href = "products.htm"
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub cup4go_MouseDown(Button, Shift, X, Y)
fulcup4.Visible = False
empcup4.Visible = True
end sub
Sub cup4go_MouseUp(Button, Shift, X, Y)
Window.location.href = "cafe.htm"
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub cup5go_MouseUp(Button, Shift, X, Y)
Window.location.href = "counter.htm"
end sub
-->
</SCRIPT>
<!-- Characteristics of various controls defined below. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub redobutt_MouseMove(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
ordhead.ForeColor = &H00404080:ordhead.Caption = "Click on this button to choose another coffee or redo entry."
end sub
Sub redobutt_Click()
Call Procedure2()
Call Procedure6()
end sub
-->
</SCRIPT>
<!-- Shows scrollbar Prompt -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub ordnum_MouseMove(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
ordhead.ForeColor = &H00404080
ordhead.Caption = "Click on the upper and lower arrows to choose a quantity from one to nine. "
end sub
-->
</SCRIPT>
<!-- Sets order form heading to default message -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub ordresult_MouseMove(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
ordhead.ForeColor = &H00800000
ordhead.Caption = "Order Here from the Volcano Coffee Online Company Store"
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub orderfm_MouseMove(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
ordhead.ForeColor = &H00800000
ordhead.Caption = "Order Here from the Volcano Coffee Online Company Store"
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub ordplease_MouseMove(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
ordhead.ForeColor = &H00404080
ordhead.Caption = "Click on the upper and lower arrows to choose a quantity from one to nine. "
